home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t4.d64 / birthday 2.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  8KB  |  264 lines
  1. 10 PRINT"[147]"
  2. 20 POKE53280,0:POKE53281,0
  3. 22 PRINT"        [176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
  4. 25 PRINT"        [221] CAKE BY  DAVID BRADLEY [221]"
  5. 27 PRINT"        [221]MUSIC BY JIM BUTTERFIELD[221]"
  6. 28 PRINT"        [173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
  7. 30 PRINT"HANG ON WHILE I SET UP.";
  8. 40 POKE53280,0:POKE53281,0
  9. 50 PRINTCHR$(142);:PRINTCHR$(8);
  10. 60 POKE52,48:POKE56,48:CLR
  11. 70 POKE56334,PEEK(56334)AND254
  12. 80 POKE1,PEEK(1)AND251
  13. 85 FORI=0TO2047
  14. 90 POKEI+12288,PEEK(I+53248):NEXT
  15. 100 PRINT"[147]JUST A BIT LONGER...                 "
  16. 110 POKE1,PEEK(1)OR4
  17. 120 POKE56334,PEEK(56334)OR1
  18. 130 POKE53272,(PEEK(53272)AND240)+12
  19. 140 FORI=12288+1024TO12288+2047STEP1
  20. 150 READA:IFA=-1THEN590
  21. 160 POKEI,A:NEXTI
  22. 170 DATA255,255,255,255,255,255,255,255
  23. 180 DATA0,0,0,0,0,0,1,3
  24. 190 DATA0,1,7,31,127,255,255,255
  25. 200 DATA127,255,255,255,255,255,255,255
  26. 210 DATA0,0,0,0,0,3,15,63
  27. 220 DATA0,3,15,63,255,255,255,255
  28. 230 DATA0,0,0,0,0,0,15,127
  29. 240 DATA0,0,0,0,15,255,255,255
  30. 250 DATA0,0,0,0,255,255,255,255
  31. 260 DATA0,0,0,0,240,255,255,255
  32. 270 DATA0,0,0,0,0,0,240,254
  33. 280 DATA254,255,255,255,255,255,255,255
  34. 290 DATA0,192,240,252,255,255,255,255
  35. 300 DATA0,0,0,0,0,192,240,252
  36. 310 DATA0,128,224,248,254,255,255,255
  37. 320 DATA0,0,0,0,0,0,128,192
  38. 330 DATA7,15,31,31,63,63,63,63
  39. 340 DATA63,127,127,127,127,127,127,127
  40. 350 DATA127,127,127,127,127,127,127,127
  41. 360 DATA63,63,31,31,15,15,7,7
  42. 370 DATA3,3,3,1,1,1,0,0
  43. 380 DATA255,255,255,254,248,192,0,0
  44. 390 DATA192,128,0,0,0,0,0,0
  45. 400 DATA252,252,248,248,240,240,224,224
  46. 410 DATA255,255,255,255,254,254,254,254
  47. 420 DATA255,252,224,224,192,192,128,128
  48. 430 DATA255,63,7,7,3,3,1,1
  49. 440 DATA255,255,255,255,127,127,127,127
  50. 450 DATA63,63,31,31,15,15,7,7
  51. 460 DATA255,255,255,127,31,3,0,0
  52. 470 DATA255,255,255,255,255,255,60,0
  53. 480 DATA255,255,255,254,248,192,0,0
  54. 490 DATA252,252,248,248,240,240,224,224
  55. 500 DATA192,192,192,128,128,128,0,0
  56. 510 DATA3,1,0,0,0,0,0,0
  57. 520 DATA3,1,0,0,0,0,0,0
  58. 530 DATA0,0,0,0,0,0,128,192
  59. 540 DATA224,240,248,248,252,252,252,252
  60. 550 DATA252,254,254,254,254,254,254,254
  61. 560 DATA254,254,254,254,254,254,254,254
  62. 570 DATA0,0,0,0,0,0,0,0
  63. 580 DATA-1
  64. 590 B=53248:FORI=0TO62:POKE64*238+I,255
  65. 600 READA:POKE64*239+I,A
  66. 610 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16,0,0,16,0,0,124,0,16
  67. 620 DATA124,0,16,124,0,124,124,16,124,124,16,124,124,124,124,124,124,124
  68. 630 DATA124,124,124,124,124,124,124,124,124,124,124,124,124,124,124
  69. 640 NEXTI:POKE2040,238:POKE2041,238:POKE2042,238:POKE2043,238:POKE2044,239
  70. 650 PRINT"ALMOST DONE...           "
  71. 660 FORI=0TO62:READA:POKE64*237+I,A:NEXTI
  72. 670 DATA0,0,0,16,0,0,16,0,0,56,0,8,124,0,24,56,0,56,56,32,60,16,48,56,0,56,56
  73. 680 DATA0,120,16,0,56,0,0,56,0,0,16,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  74. 690 DATA0,0,0
  75. 700 POKE2045,239
  76. 710 FORI=0TO62:READA:POKE64*236+I,A:NEXTI
  77. 720 DATA0,0,0,32,0,0,48,0,0,56,0,16,120,0,16,56,0,56,56,16,124,16,16,56,0,56,56
  78. 730 DATA0,124,16,0,56,0,0,56,0,0,16,0
  79. 740 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  80. 750 POKEB+23,255:POKEB+29,255:POKEB,160:POKEB+2,208:POKEB+4,112
  81. 760 FORI=0TO62:READA:POKE64*235+I,A:NEXTI
  82. 770 DATA0,0,0,16,0,0,16,0,0,56,0,32,124,0,48,56,0,56,56,8,120
  83. 780 DATA16,24,56,0,56,56,0,60,16,0,56,0,0,56,0,0,16,0
  84. 790 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  85. 800 X=FRE(0)
  86. 810 POKEB+1,137:POKEB+3,137:POKEB+5,137:POKEB+27,15:POKEB+39,7:POKEB+40,7
  87. 820 FORI=0TO62:READA:POKE64*240+I,A:NEXTI
  88. 830 DATA0,0,0,8,0,0,24,0,0,56,0,8,60,0,24,56,0,56,56,32,60
  89. 840 DATA16,48,56,0,56,56,0,120,16,0,56,0,0,56,0,0,16,0
  90. 850 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  91. 860 POKEB+41,7:POKEB+6,224:POKEB+7,137:POKEB+42,7:POKEB+12,145:POKEB+14,193
  92. 870 POKEB+13,71:POKEB+15,69:POKE2046,237:POKE2047,237:POKEB+45,2:POKEB+46,2
  93. 880 POKEB+8,145:POKEB+9,68:POKEB+10,193:POKEB+11,68:POKEB+44,6:POKEB+43,6
  94. 890 FORI=0TO62:READA:POKE64*241+I,A:NEXTI
  95. 900 DATA0,0,0,0,0,0,2,0,0,6,0,0,14,0,2,28,0,6,24,0,14,16,2,28,0,6,24,0,14,16
  96. 910 DATA0,28,0,0,24,0,0,16,0
  97. 920 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  98. 930 FORI=0TO62:READA:POKE64*242+I,A:NEXTI
  99. 940 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  100. 950 DATA7,0,0,30,0,0,24,0,7,0,0,30,0,0,24,0,7,0,0,30,0,0,24,0
  101. 960 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  102. 970 FORI=0TO62:READA:POKE64*243+I,A:NEXTI
  103. 980 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  104. 990 DATA0,0,14,0,0,24
  105. 1000 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  106. 1010 FORI=0TO62:READA:POKE64*244+I,A:NEXTI
  107. 1020 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  108. 1030 DATA0,0,16,0,0,56
  109. 1040 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  110. 1050 FORI=0TO62:READA:POKE64*245+I,A:NEXTI
  111. 1060 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  112. 1070 DATA0,0,16,0,0,56,0,0,124,0,0,56,0,0,56
  113. 1080 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  114. 1090 FORI=0TO62:READA:POKE64*247+I,A:NEXTI
  115. 1100 PRINT"GET READY...             "
  116. 1110 DATA0,0,0,0,0,0,0,0,8,0,0,24,0,0,56,0,0,56,0,0,60,0,0,124,0,0,56,0,0,56
  117. 1120 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  118. 1130 FORI=0TO62:READA:POKE64*246+I,A:NEXTI
  119. 1140 DATA0,0,0,0,0,0,0,0,16,0,0,16,0,0,56,0,0,56,0,0,124,0,0,124,0,0,56,0,0,56
  120. 1150 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  121. 1160 FORI=0TO62:READA:POKE64*248+I,A:NEXTI
  122. 1170 DATA0,0,0,0,0,0,0,0,32,0,0,48,0,0,56,0,0,56,0,0,120,0,0,124,0,0,56,0,0,56
  123. 1180 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  124. 1190 FORI=0TO62:READA:POKE64*249+I,A:NEXTI
  125. 1200 DATA0,0,0,0,0,0,0,0,2,0,0,6,0,0,14,0,0,28,0,0,24,0,0,16,0,0,0,0,0,0
  126. 1210 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  127. 1220 FORI=0TO62:READA:POKE64*250+I,A:NEXTI
  128. 1230 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  129. 1240 DATA0,0,0,0,0,7,0,0,30,0,0,24,0,0,0,0,0,0,0,0,0,0,0,0
  130. 1250 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  131. 1260 GOTO1880
  132. 1270 PRINT"[147]FGHHHHHHHHHHIJ"
  133. 1280 PRINT"DEC@@@@@@@@@@@@KLM"
  134. 1290 PRINT"ABC@@@@@@@@@@@@@@@@KNO"
  135. 1300 PRINT"P@@@@@@@@@@@@@@@@@@@@%"
  136. 1310 PRINT"Q@@@@@@@@@@@@@@@@@@@@&"
  137. 1320 PRINT"R@@YZ@@@@@YZ@@@@@YZ@@'"
  138. 1330 PRINT"R@X[158]@@[@@@X[158]@@[@@@X[158]@@[@'"
  139. 1340 PRINT"S@W[158]@@\@@@W[158]@@\@@@W[158]@@\@ "
  140. 1350 PRINT"TUV[158]@@#]^UV[158]@@#]^UV[158]@@#]!"
  141. 1360 PRINT"[158]@@@@@@@@@@@@@@@@@@@@"
  142. 1370 PRINT"[158]@@@@@@@@@@@@@@@@@@@@"
  143. 1380 PRINT"[158]@@@@@@@@@@@@@@@@@@@@"
  144. 1390 PRINT"[158]@@@@@@@@@@@@@@@@@@@@"
  145. 1400 PRINT"[158]@@@@@@@@@@@@@@@@@@@@"
  146. 1410 PRINT"[158]@@@@@@@@@@@@@@@@@@@@"
  147. 1420 POKEB+21,255
  148. 1430 FORI=1TO1000
  149. 1440 POKE2046,237:POKE2047,240
  150. 1445 GETA$:IFA$="[133]"THEN1580
  151. 1450 GOSUB1870
  152. 1460 POKE2046,236:POKE2047,235
  153. 1465 GETA$:IFA$="[133]"THEN1580
  154. 1470 GOSUB1870
  155. 1480 POKE2046,235:POKE2047,236
  156. 1485 GETA$:IFA$="[133]"THEN1580
  157. 1490 GOSUB1870
  158. 1500 POKE2046,240:POKE2047,237
  159. 1505 GETA$:IFA$="[133]"THEN1580
  160. 1510 GOSUB1870
  161. 1520 POKE2046,235:POKE2047,236
  162. 1525 GETA$:IFA$="[133]"THEN1580
  163. 1530 GOSUB1870
  164. 1540 POKE2046,236:POKE2047,235
  165. 1545 GETA$:IFA$="[133]"THEN1580
  166. 1550 GOSUB1870
  167. 1560 GETA$:IFA$="[133]"THEN1580
  168. 1570 NEXTI
  169. 1580 POKE2046,241:POKE2047,241
  170. 1585 GETA$:IFA$="[134]"THEN1800
  171. 1590 GOSUB1870
  172. 1600 POKE2046,242:POKE2047,242
  173. 1605 GETA$:IFA$="[134]"THEN1800
  174. 1610 GOSUB1870
  175. 1620 POKEB+21,191:POKE2047,243
  176. 1625 GETA$:IFA$="[134]"THEN1800
  177. 1630 GOSUB1870
  178. 1640 POKE2047,244
  179. 1645 GETA$:IFA$="[134]"THEN1800
  180. 1650 GOSUB1870
  181. 1660 POKE2047,245
  182. 1665 GETA$:IFA$="[134]"THEN1800
  183. 1670 GOSUB1870
  184. 1680 POKE2047,246
  185. 1685 GETA$:IFA$="[134]"THEN1800
  186. 1690 GOSUB1870
  187. 1700 POKE2047,247
  188. 1705 GETA$:IFA$="[134]"THEN1800
  189. 1710 GOSUB1870
  190. 1720 POKE2047,246
  191. 1725 GETA$:IFA$="[134]"THEN1800
  192. 1730 GOSUB1870
  193. 1740 POKE2047,248
  194. 1745 GETA$:IFA$="[134]"THEN1800
  195. 1750 GOSUB1870
  196. 1760 POKE2047,247
  197. 1765 GETA$:IFA$="[134]"THEN1800
  198. 1770 GOSUB1870
  199. 1780 GETA$:IFA$="[134]"THEN1800
  200. 1790 GOTO1680
  201. 1800 POKE2047,249
  202. 1810 GOSUB1870
  203. 1820 POKE2047,250
  204. 1830 GOSUB1870
  205. 1840 POKEB+21,63
  206. 1850 GETA$:IFA$="[133]"THENGOTO1270
  207. 1854 IFA$="[134]"THENPOKEB+21,0:PRINT"[147]SEE YOU NEXT YEAR...":END:END
  208. 1860 GOTO1850
  209. 1870 FORJ=1TO150:NEXTJ:RETURN
  210. 1880 POKE53280,0:POKE53281,0
  211. 1890 PRINT "[147][144]MUSIC  (BY JIM BUTTERFIELD)
  212. 1900 [153]""
  213. 1910 L1[178]54272:L2[178]54279:L3[178]54286
  214. 1920 H1[178]L1[170]1:H2[178]L2[170]1:H3[178]L3[170]1
  215. 1930 V1[178]L1[170]4:V2[178]L2[170]4:V3[178]L3[170]4
  216. 1940 [151] 54296,15
  217. 1950 [151] V1[170]1,9:[151] V1[170]2,0
  218. 1960 [151] V2[170]1,36:[151] V2[170]2,36
  219. 1970 [151] V3[170]1,18:[151] V3[170]2,170
  220. 1980 T[178]TI
  221. 1990 [151] V1,16:[151] V2,32:[151] V3,16
  222. 2000 [135] S:[139] S[178]0 [137] 2090
  223. 2010 [135] S$:[141] 2400
  224. 2020 [135] X1,Y1,X2,Y2,X3,Y3
  225. 2030 [139] X1 [167] [151] H1,X1:[151] L1,Y1:[151] V1,17
  226. 2040 [139] X2 [167] [151] H2,X2:[151] L2,Y2:[151] V2,33
  227. 2050 [139] X3 [167] [151] H3,X3:[151] L3,Y3:[151] V3,17
  228. 2060 T[178]T[170]S
  229. 2070 [139] T[177]TI [137] 2070
  230. 2080 [137] 1990
  231. 2090 [129]J[178]L1 [164] 54296:[151] J,0:[130] J
  232. 2100 [153]"CONT";:[137]1270
  233. 2110 [131] 40,"       HAP",34,75,0,0,0,0
  234. 2120 [131] 20,"PY",34,75,0,0,0,0
  235. 2130 [131] 60," BIRTH",38,126,28,214,5,185
  236. 2140 [131] 60,"DAY",34,75,28,214,0,0
  237. 2150 [131] 60," TO",45,198,38,126,5,185
  238. 2160 [131] 60," YOU",43,52,30,141,4,73
  239. 2170 [131] 60,",",0,0,0,0,0,0
  240. 2180 [131] 40,"       HAP",34,75,0,0,0,0
  241. 2190 [131] 20,"PY",34,75,0,0,0,0
  242. 2200 [131] 60," BIRTH",38,126,30,141,6,108
  243. 2210 [131] 60,"DAY",34,75,30,141,0,0
  244. 2220 [131] 60," TO",51,97,34,75,4,73
  245. 2230 [131] 60," YOU",45,198,28,214,5,185
  246. 2240 [131] 60,",",0,0,0,0,0,0
  247. 2250 [131] 40,"       HAP",34,75,0,0,0,0
  248. 2260 [131] 20,"PY",34,75,0,0,0,0
  249. 2270 [131] 60," BIRTH",68,149,22,227,5,185
  250. 2280 [131] 60,"DAY",57,172,25,177,0,0
  251. 2290 [131] 60," DEAR",45,198,28,214,7,53
  252. 2300 [131] 60," DAV",21,154,30,141,7,163
  253. 2310 [131] 60,"ID",19,63,30,141,0,0
  254. 2320 [131] 60,",",0,0,0,0,0,0
  255. 2330 [131] 40,"       HAP",61,126,0,0,0,0
  256. 2340 [131] 20,"PY",61,126,0,0,0,0
  257. 2350 [131] 60," BIRTH",57,172,34,75,8,147
  258. 2360 [131] 60,"DAY",45,198,28,214,0,0
  259. 2370 [131] 60," TO",51,97,30,141,4,73
  260. 2380 [131] 60," YOU.",45,198,28,214,2,220
  261. 2390 [131] 0
  262. 2400 [153] S$;:[139] [201](S$,1)[179]"0" [167] [153]
  263. 2410 [142]
  264.